object PropExpert: TPropExpert
  Left = 12
  Top = 174
  BorderIcons = [biSystemMenu]
  BorderStyle = bsDialog
  Caption = 'Property Expert'
  ClientHeight = 276
  ClientWidth = 261
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'System'
  Font.Style = []
  PixelsPerInch = 96
  TextHeight = 16
  object Label1: TLabel
    Left = 8
    Top = 16
    Width = 41
    Height = 16
    Caption = 'Class:'
  end
  object Label2: TLabel
    Left = 8
    Top = 46
    Width = 59
    Height = 16
    Caption = 'Property:'
  end
  object Label3: TLabel
    Left = 8
    Top = 77
    Width = 70
    Height = 16
    Caption = 'Data Type:'
  end
  object Label4: TLabel
    Left = 8
    Top = 107
    Width = 78
    Height = 16
    Caption = 'Array Index:'
  end
  object Label5: TLabel
    Left = 8
    Top = 138
    Width = 50
    Height = 16
    Caption = 'Default:'
  end
  object Label6: TLabel
    Left = 8
    Top = 168
    Width = 40
    Height = 16
    Caption = 'Index:'
  end
  object Label7: TLabel
    Left = 8
    Top = 235
    Width = 133
    Height = 16
    Caption = '(C)1995 Sutron Corp.'
  end
  object Label8: TLabel
    Left = 8
    Top = 251
    Width = 114
    Height = 16
    Caption = 'by: Jon Weisberg'
  end
  object ReadMethod: TCheckBox
    Left = 8
    Top = 208
    Width = 121
    Height = 17
    Hint = 'Click if you want a seperate read method.'
    Caption = 'Read Method'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 0
  end
  object WriteMethod: TCheckBox
    Left = 136
    Top = 208
    Width = 121
    Height = 17
    Hint = 'Click if you want a seperate write method.'
    Caption = 'Write Method'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 1
  end
  object ClassName: TEdit
    Left = 88
    Top = 8
    Width = 161
    Height = 24
    Hint = 'Class name of the component.'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 2
  end
  object PropertyName: TEdit
    Left = 88
    Top = 40
    Width = 161
    Height = 24
    Hint = 'Name of property to add.'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 3
  end
  object DataType: TEdit
    Left = 88
    Top = 72
    Width = 161
    Height = 24
    Hint = 'Data type of the property'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 4
  end
  object ArrayIndex: TEdit
    Left = 88
    Top = 104
    Width = 161
    Height = 24
    Hint = 'Index for array properties'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 5
  end
  object Default: TEdit
    Left = 88
    Top = 136
    Width = 161
    Height = 24
    Hint = 'Default value of the property'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 6
  end
  object Index: TEdit
    Left = 88
    Top = 168
    Width = 161
    Height = 24
    Hint = 'Index number for index'#39'ed properties.'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 7
  end
  object BitBtn1: TBitBtn
    Left = 160
    Top = 235
    Width = 89
    Height = 33
    TabOrder = 8
    Kind = bkOK
  end
end